home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / Ersatzquelle / EQgadgets.mod < prev    next >
Text File  |  1993-08-15  |  39KB  |  926 lines
  1. (**********************************************************************
  2.  
  3.     :Program.       EQGadgets.mod
  4.     :Imports.    IntuiStruct V1.3 [bne], IDCMP V 1.1 [bne]
  5.     :Imports.    Version V1.0 [gs]
  6.     :Author.        Gary Struhlik
  7.     :shortcut.      [gs]
  8.     :Version.       1.0
  9.     :Date.          09.10.89
  10.     :Copyright.  Public Domain
  11.     :Language.      Modula-II
  12.     :Translator. M2Amiga AMSoft V3.2d
  13.     :Contents.     Enthält die  grafische  Benutzerschnittstelle  für das
  14.     :Contents.   Programm 'Ersatzquelle'
  15.   
  16. **********************************************************************)
  17.  
  18. IMPLEMENTATION MODULE EQGadgets;
  19.  
  20. FROM Intuition IMPORT NewWindow,  IDCMPFlags, WindowFlags,  ScreenFlags,
  21.               IDCMPFlagSet, WindowFlagSet, WindowPtr, ScreenFlagSet, 
  22.                       OpenWindow, CloseWindow, IntuiMessagePtr, Gadget,
  23.                       GadgetPtr, boolGadget, AddGadget, RefreshGadgets,
  24.                       ActivationFlags, ActivationFlagSet, GadgetFlags,
  25.                       GadgetFlagSet, Image, SetWindowTitles,DrawImage;
  26. FROM SYSTEM IMPORT ADR,ADDRESS,LONGSET;
  27. FROM IntuiStruct IMPORT StructWindow, StructGadget, StructImage,
  28.                         ImageEnd, Long, AllocProc,DeallocProc,FreeImage;
  29. FROM Graphics IMPORT DrawModes, DrawModeSet, SetRast;
  30. FROM Exec IMPORT MsgPortPtr;
  31. FROM IDCMP IMPORT GetIntuiMessage;
  32. FROM InputEvent IMPORT QualifierSet;
  33. FROM InOut IMPORT WriteLn, WriteString;
  34. FROM Heap IMPORT AllocMem, Deallocate;
  35. FROM Version IMPORT ImgPtr, Imgwidth, Imgheight, Imgdepth;
  36.  
  37. VAR
  38.     GadgetID : INTEGER;
  39.     NewGadget : ARRAY [0..31] OF Gadget;
  40.     msgadr : GadgetPtr; 
  41.     nw : NewWindow;
  42.     window : WindowPtr;
  43.     Class : IDCMPFlags;
  44.     Code : CARDINAL;
  45.     x,y : INTEGER;
  46.     Qualf : QualifierSet;
  47.     ItemAdr : ADDRESS;
  48.     ImageDaten : ARRAY [0..31] OF Image;
  49.     i : CARDINAL;
  50.         SelectGadget : ARRAY[0..1] OF Gadget;
  51.         SelectImage  : ARRAY[0..1] OF Image;
  52.         Autor : Image;
  53.  
  54. PROCEDURE MaleGadgets;
  55. BEGIN
  56.     StructWindow(nw, 0, 217, 639, 39, 0, 1, 
  57.                  IDCMPFlagSet{gadgetUp},
  58.                  WindowFlagSet{windowDepth, activate,windowDrag},
  59.                  NIL, NIL, 
  60.                  ScreenFlagSet{wbenchScreen} );
  61.  
  62.     window:=OpenWindow(nw);
  63.     IF window=NIL THEN HALT END;
  64.  
  65.     SetRast(window^.rPort,1); (* Hintergrund des Befehlfensters weiß *)
  66.     SetWindowTitles(window,ADR("   Befehle   "),NIL);
  67.                               (* Window Titel schreiben *)
  68.     RefreshGadgets(window^.firstGadget,window,NIL);
  69.         
  70.     WITH Autor DO
  71.       leftEdge:=0; topEdge:=0; width:=Imgwidth; height:=Imgheight;
  72.       depth:=Imgdepth; imageData:=ImgPtr; planePick:=2;
  73.       planeOnOff:=1 ; nextImage:=NIL
  74.     END;  
  75.     
  76.     DrawImage(window^.rPort, ADR(Autor),515,10); (* Grafik mit Versions- *)
  77.                                                  (* nummer zeichnen      *)
  78.     StructImage( ImageDaten[0], 0,0, 32, 14, 1, {1}, {0}, NIL );
  79.     Long(00000000000000000000000000000000L);
  80.     Long(00000000111111111111111100000000L);
  81.     Long(00000000100000000000000100000000L);
  82.     Long(00011111100000000000000111111000L);
  83.     Long(00000000100000000000000100000000L);
  84.     Long(00000000111111111111111100000000L);
  85.     Long(00000000000000000000000000000000L);
  86.     Long(00000000011110000011110000000000L);
  87.     Long(00000000010001000010001000000000L);
  88.     Long(00000000010001000010001000000000L);
  89.     Long(00000000011110000011110000000000L);
  90.     Long(00000000010001000010001000000000L);
  91.     Long(00000000010000100010000100000000L);
  92.     Long(00000000000000000000000000000000L);
  93.     ImageEnd;
  94.     StructGadget( NewGadget[0], 2, 10, 32, 14, GadgetFlagSet{gadgImage,
  95.                   gadgHImage,gadgHBox},
  96.                   ActivationFlagSet{ relVerify,gadgImmediate },
  97.                    boolGadget,
  98.                   ADR(ImageDaten[0]) , NIL , LONGSET{}, 0,NIL );
  99.     GadgetID:=AddGadget(window, ADR(NewGadget[0]), -1);
  100.     
  101.     StructImage( ImageDaten[1], 0,0, 32, 14, 1, {1}, {0}, NIL );
  102.     Long(00000000000000000000000000000000L);
  103.     Long(00000000111111111111111100000000L);
  104.     Long(00000000100000000000000100000000L);
  105.     Long(00011111100000000000000111111000L);
  106.     Long(00000000100000000000000100000000L);
  107.     Long(00000000111111111111111100000000L);
  108.     Long(00000000000000000000000000000000L);
  109.     Long(00000000011110000011110000000000L);
  110.     Long(00000000010001000010001000000000L);
  111.     Long(00000000010001000010001000000000L);
  112.     Long(00000000011110000011110000000000L);
  113.     Long(00000000010001000010000000000000L);
  114.     Long(00000000010000100010000000000000L);
  115.     Long(00000000000000000000000000000000L);
  116.     ImageEnd;
  117.     StructGadget( NewGadget[1], 2, 24, 32, 14, GadgetFlagSet{ gadgImage,
  118.                   gadgHImage,gadgHBox},
  119.                   ActivationFlagSet{ relVerify,gadgImmediate },
  120.                    boolGadget,
  121.                  ADR(ImageDaten[1]), NIL ,LONGSET{}, 1,ADR(NewGadget[0]) );
  122.     GadgetID:=AddGadget(window, ADR(NewGadget[1]), -1);
  123.  
  124.     StructImage( ImageDaten[2], 0,0, 32, 14, 1, {1}, {0}, NIL );
  125.     Long(00000000000000000000000000000000L);
  126.     Long(00000000111111111111111100000000L);
  127.     Long(00000000100000000000000100000000L);
  128.     Long(00011111100000000000000111111000L);
  129.     Long(00000000100000000000000100000000L);
  130.     Long(00000000111111111111111100000000L);
  131.     Long(00000000000000000000000000000000L);
  132.     Long(00000000010000100011110000000000L);
  133.     Long(00000000001001000010001000000000L);
  134.     Long(00000000000110000010001000000000L);
  135.     Long(00000000000110000011110000000000L);
  136.     Long(00000000001001000010001000000000L);
  137.     Long(00000000010000100010000100000000L);
  138.     Long(00000000000000000000000000000000L);
  139.     ImageEnd;
  140.     StructGadget( NewGadget[2], 34, 10, 32, 14, GadgetFlagSet{ gadgImage,
  141.                   gadgHImage,gadgHBox},
  142.                   ActivationFlagSet{ relVerify,gadgImmediate },
  143.                    boolGadget,
  144.                 ADR(ImageDaten[2]), NIL , LONGSET{}, 2,ADR(NewGadget[1]) );
  145.     GadgetID:=AddGadget(window, ADR(NewGadget[2]), -1);
  146.  
  147.     StructImage( ImageDaten[3], 0,0, 32, 14, 1, {1}, {0}, NIL );
  148.     Long(00000000000000000000000000000000L);
  149.     Long(00000000111111111111111100000000L);
  150.     Long(00000000100000000000000100000000L);
  151.     Long(00011111100000000000000111111000L);
  152.     Long(00000000100000000000000100000000L);
  153.     Long(00000000111111111111111100000000L);
  154.     Long(00000000000000000000000000000000L);
  155.     Long(00000000010000100011110000000000L);
  156.     Long(00000000001001000010001000000000L);
  157.     Long(00000000000110000010001000000000L);
  158.     Long(00000000000110000011110000000000L);
  159.     Long(00000000001001000010000000000000L);
  160.     Long(00000000010000100010000000000000L);
  161.     Long(00000000000000000000000000000000L);
  162.     ImageEnd;
  163.     StructGadget( NewGadget[3], 34, 24, 32, 14, GadgetFlagSet{ gadgImage,
  164.                   gadgHImage,gadgHBox},
  165.                   ActivationFlagSet{ relVerify,gadgImmediate },
  166.                    boolGadget,
  167.                 ADR(ImageDaten[3]), NIL , LONGSET{}, 3,ADR(NewGadget[2]) );
  168.     GadgetID:=AddGadget(window, ADR(NewGadget[3]), -1);
  169.  
  170.     StructImage( ImageDaten[4], 0,0, 32, 14, 1, {1}, {0}, NIL );
  171.     Long(00000000000000000000000000000000L);
  172.     Long(00000000111111111111111100000000L);
  173.     Long(00000000111111111111111100000000L);
  174.     Long(00011111111111111111111111111000L);
  175.     Long(00000000111111111111111100000000L);
  176.     Long(00000000111111111111111100000000L);
  177.     Long(00000000000000000000000000000000L);
  178.     Long(00000000010000000011110000000000L);
  179.     Long(00000000010000000010001000000000L);
  180.     Long(00000000010000000010001000000000L);
  181.     Long(00000000010000000011110000000000L);
  182.     Long(00000000010000000010001000000000L);
  183.     Long(00000000011111100010000100000000L);
  184.     Long(00000000000000000000000000000000L);
  185.     ImageEnd;
  186.     StructGadget( NewGadget[4], 66, 10, 32, 14, GadgetFlagSet{ gadgImage,
  187.                   gadgHImage,gadgHBox},
  188.                   ActivationFlagSet{ relVerify,gadgImmediate },
  189.                    boolGadget,
  190.                ADR(ImageDaten[4]) , NIL , LONGSET{}, 4,ADR(NewGadget[3]) );
  191.     GadgetID:=AddGadget(window, ADR(NewGadget[4]), -1);
  192.     
  193.     StructImage( ImageDaten[5], 0,0, 32, 14, 1, {1}, {0}, NIL );
  194.     Long(00000000000000000000000000000000L);
  195.     Long(00000000111111111111111100000000L);
  196.     Long(00000000111111111111111100000000L);
  197.     Long(00011111111111111111111111111000L);
  198.     Long(00000000111111111111111100000000L);
  199.     Long(00000000111111111111111100000000L);
  200.     Long(00000000000000000000000000000000L);
  201.     Long(00000000010000000011110000000000L);
  202.     Long(00000000010000000010001000000000L);
  203.     Long(00000000010000000010001000000000L);
  204.     Long(00000000010000000011110000000000L);
  205.     Long(00000000010000000010000000000000L);
  206.     Long(00000000011111100010000000000000L);
  207.     Long(00000000000000000000000000000000L);
  208.     ImageEnd;
  209.     StructGadget( NewGadget[5], 66, 24, 32, 14, GadgetFlagSet{ gadgImage,
  210.                   gadgHImage,gadgHBox},
  211.                   ActivationFlagSet{ relVerify,gadgImmediate },
  212.                    boolGadget,
  213.                  ADR(ImageDaten[5]), NIL ,LONGSET{}, 5,ADR(NewGadget[4]) );
  214.     GadgetID:=AddGadget(window, ADR(NewGadget[5]), -1);
  215.     
  216.     StructImage( ImageDaten[6], 0,0, 32, 14, 1, {1}, {0}, NIL );
  217.     Long(00000000000011001100000000000000L);
  218.     Long(00000000000011001100000000000000L);
  219.     Long(00000000000011001100000000000000L);
  220.     Long(00111111111111001111111111110000L);
  221.     Long(00000000000011001100000000000000L);
  222.     Long(00000000000011001100000000000000L);
  223.     Long(00000000000011001100000000000000L);
  224.     Long(00000001111000000011110000000000L);
  225.     Long(00000010000100000010001000000000L);
  226.     Long(00000010000000000010001000000000L);
  227.     Long(00000010000000000011110000000000L);
  228.     Long(00000010000100000010001000000000L);
  229.     Long(00000001111000000010000100000000L);
  230.     Long(00000000000000000000000000000000L);
  231.     ImageEnd;
  232.     StructGadget( NewGadget[6], 98, 10, 32, 14, GadgetFlagSet{ gadgImage,
  233.                   gadgHImage,gadgHBox},
  234.                   ActivationFlagSet{ relVerify,gadgImmediate },
  235.                    boolGadget,
  236.                ADR(ImageDaten[6]) , NIL , LONGSET{}, 6,ADR(NewGadget[5]) );
  237.     GadgetID:=AddGadget(window, ADR(NewGadget[6]), -1);
  238.     
  239.     StructImage( ImageDaten[7], 0,0, 32, 14, 1, {1}, {0}, NIL );
  240.     Long(00000000000011001100000000000000L);
  241.     Long(00000000000011001100000000000000L);
  242.     Long(00000000000011001100000000000000L);
  243.     Long(00111111111111001111111111110000L);
  244.     Long(00000000000011001100000000000000L);
  245.     Long(00000000000011001100000000000000L);
  246.     Long(00000000000011001100000000000000L);
  247.     Long(00000001111000000011110000000000L);
  248.     Long(00000010000100000010001000000000L);
  249.     Long(00000010000000000010001000000000L);
  250.     Long(00000010000000000011110000000000L);
  251.     Long(00000010000100000010000000000000L);
  252.     Long(00000001111000000010000000000000L);
  253.     Long(00000000000000000000000000000000L);
  254.     ImageEnd;
  255.     StructGadget( NewGadget[7], 98, 24, 32, 14, GadgetFlagSet{ gadgImage,
  256.                   gadgHImage,gadgHBox},
  257.                   ActivationFlagSet{ relVerify,gadgImmediate },
  258.                    boolGadget,
  259.                  ADR(ImageDaten[7]), NIL ,LONGSET{}, 7,ADR(NewGadget[6]) );
  260.     GadgetID:=AddGadget(window, ADR(NewGadget[7]), -1);
  261.  
  262.     StructImage( ImageDaten[8], 0,0, 32, 14, 1, {1}, {0}, NIL );
  263.     Long(00000000000011111111000000000000L);
  264.     Long(00000000011100000000111000000000L);
  265.     Long(00000001100000000000000110000000L);
  266.     Long(00000010000000001110011101000000L);
  267.     Long(00000100010000101001010000100000L);
  268.     Long(00000100010000101110011100010000L);
  269.     Long(00001000010000101001010000010000L);
  270.     Long(11111000010000101001011100011111L);
  271.     Long(00000100010000100000000000010000L);
  272.     Long(00000100001111001000100000100000L);
  273.     Long(00000010000000001000100001000000L);
  274.     Long(00000001100000001000100110000000L);
  275.     Long(00000000011100000000111000000000L);
  276.     Long(00000000000011111111000000000000L);
  277.     ImageEnd;
  278.     StructGadget( NewGadget[8],130, 10, 32, 14, GadgetFlagSet{ gadgImage,
  279.                   gadgHImage,gadgHBox},
  280.                   ActivationFlagSet{ relVerify,gadgImmediate },
  281.                    boolGadget,
  282.                  ADR(ImageDaten[8]), NIL ,LONGSET{}, 8,ADR(NewGadget[7]) );
  283.     GadgetID:=AddGadget(window, ADR(NewGadget[8]), -1);
  284.  
  285.     StructImage( ImageDaten[9], 0,0, 32, 14, 1, {1}, {0}, NIL );
  286.     Long(00000000000011000011000000000000L);
  287.     Long(00000000011100000000111000000000L);
  288.     Long(00000001100000000000000110000000L);
  289.     Long(00000010000000001110011101000000L);
  290.     Long(00000100011111001001010000100000L);
  291.     Long(00000100000100001110011100010000L);
  292.     Long(00001000000100001001010000010000L);
  293.     Long(11111000000100001001011100011111L);
  294.     Long(00000100000100000000000000010000L);
  295.     Long(00000100011111001000100000100000L);
  296.     Long(00000010000000001000100001000000L);
  297.     Long(00000001100000001000100110000000L);
  298.     Long(00000000011100000000111000000000L);
  299.     Long(00000000000011000011000000000000L);        
  300.     ImageEnd;
  301.     StructGadget( NewGadget[9],130, 24, 32, 14, GadgetFlagSet{ gadgImage,
  302.                   gadgHImage,gadgHBox},
  303.                   ActivationFlagSet{ relVerify,gadgImmediate },
  304.                    boolGadget,
  305.                  ADR(ImageDaten[9]), NIL ,LONGSET{}, 9,ADR(NewGadget[8]) );
  306.     GadgetID:=AddGadget(window, ADR(NewGadget[9]), -1);
  307.     
  308.     StructImage( ImageDaten[10], 0,0, 32, 14, 1, {1}, {0}, NIL );
  309.     Long(00000000000011111111000000000000L);
  310.     Long(00000000011100000000111000000000L);
  311.     Long(00000001100000000000000110000000L);
  312.     Long(00000010000000000101101101000000L);
  313.     Long(00000100010000100101010100100000L);
  314.     Long(00000100010000100101000100010000L);
  315.     Long(00001000010000100101000100010000L);
  316.     Long(11111000010000100000011000011111L);
  317.     Long(00000100010000100001100000010000L);
  318.     Long(00000100001111000110000000100000L);
  319.     Long(00000010000000001111111001000000L);
  320.     Long(00000001100000000000000110000000L);
  321.     Long(00000000011100000000111000000000L);
  322.     Long(00000000000011111111000000000000L);
  323.     ImageEnd;
  324.     StructGadget( NewGadget[10],162, 10, 32, 14, GadgetFlagSet{ gadgImage,
  325.                       gadgHImage, gadgHBox },
  326.                   ActivationFlagSet{ relVerify,gadgImmediate},
  327.                    boolGadget,
  328.                ADR(ImageDaten[10]), NIL ,LONGSET{}, 10,ADR(NewGadget[9]) );
  329.             
  330.     GadgetID:=AddGadget(window, ADR(NewGadget[10]), -1);
  331.  
  332.     StructImage( ImageDaten[11], 0,0, 32, 14, 1, {1}, {0}, NIL );
  333.     Long(00000000000011000011000000000000L);
  334.     Long(00000000011100000000111000000000L);
  335.     Long(00000001100000000000000110000000L);
  336.     Long(00000010000000000101101101000000L);
  337.     Long(00000100011111000101010100100000L);
  338.     Long(00000100000100000101000100010000L);
  339.     Long(00001000000100000101000100010000L);
  340.     Long(11111000000100000000011000011111L);
  341.     Long(00000100000100000001100000010000L);
  342.     Long(00000100011111000110000000100000L);
  343.     Long(00000010000000001111111001000000L);
  344.     Long(00000001100000000000000110000000L);
  345.     Long(00000000011100000000111000000000L);
  346.     Long(00000000000011000011000000000000L);    
  347.     ImageEnd;
  348.     StructGadget( NewGadget[11],162, 24, 32, 14, GadgetFlagSet{ gadgImage,
  349.                   gadgHImage,gadgHBox},
  350.                   ActivationFlagSet{ relVerify,gadgImmediate },
  351.                    boolGadget,
  352.                ADR(ImageDaten[11]), NIL ,LONGSET{},11,ADR(NewGadget[10]) );
  353.     GadgetID:=AddGadget(window, ADR(NewGadget[11]), -1);
  354.  
  355.     StructImage( ImageDaten[12], 0,0, 32, 14, 1, {1}, {0}, NIL );
  356.     Long(00000000000000000000000000000000L);
  357.     Long(00000000000000000000000000000000L);
  358.     Long(00000000000000000000000000000000L);
  359.     Long(00001111111111100111111111110000L);
  360.     Long(01111000000000111100000000011110L);
  361.     Long(00001111111111100111111111110000L);
  362.     Long(00000000000000000000000000000000L);
  363.     Long(00000001000000000011110000000000L);
  364.     Long(00000010100000000010001000000000L);
  365.     Long(00000100010000000011110000000000L);
  366.     Long(00000111110000000010001000000000L);
  367.     Long(00000100010000000010001000000000L);
  368.     Long(00000100010000000011110000000000L);
  369.     Long(00000000000000000000000000000000L);
  370.     ImageEnd;
  371.     StructGadget( NewGadget[12],194, 10, 32, 14, GadgetFlagSet{ gadgImage,
  372.                   gadgHImage,gadgHBox},
  373.                   ActivationFlagSet{ relVerify,gadgImmediate },
  374.                    boolGadget,
  375.                ADR(ImageDaten[12]), NIL ,LONGSET{},12,ADR(NewGadget[11]) );
  376.     GadgetID:=AddGadget(window, ADR(NewGadget[12]), -1);
  377.  
  378.     StructImage( ImageDaten[13], 0,0, 32, 14, 1, {1}, {0}, NIL );
  379.     Long(00000000000000000000000000000000L);
  380.     Long(00000000000000000000000000010000L);
  381.     Long(00000001111111111100000000101000L);
  382.     Long(00001111000000000111100001000100L);
  383.     Long(00001001111111111100100001111100L);
  384.     Long(00001000000000000000100001000100L);
  385.     Long(01111000000000000000111101000100L);
  386.     Long(00001000000000000000100000000000L);
  387.     Long(00001001111111111100100001111000L);
  388.     Long(00001111000000000111100001000100L);
  389.     Long(00000001111111111100000001111000L);
  390.     Long(00000000000000000000000001000100L);
  391.     Long(00000000000000000000000001111000L);
  392.     Long(00000000000000000000000000000000L);
  393.     ImageEnd;
  394.     StructGadget( NewGadget[13],194, 24, 32, 14, GadgetFlagSet{ gadgImage,
  395.                   gadgHImage,gadgHBox},
  396.                   ActivationFlagSet{ relVerify,gadgImmediate },
  397.                    boolGadget,
  398.                ADR(ImageDaten[13]), NIL ,LONGSET{},13,ADR(NewGadget[12]) );
  399.     GadgetID:=AddGadget(window, ADR(NewGadget[13]), -1);
  400.  
  401.     StructImage( ImageDaten[14], 0,0, 32, 14, 1, {1}, {0}, NIL );
  402.     Long(00000000000000000000000000000000L);
  403.     Long(00000000000000000000000000000000L);
  404.     Long(00000010000010000011110000000000L);
  405.     Long(00000010000010000100001000000000L);
  406.     Long(00000010000010000100001000000000L);
  407.     Long(00000010000010000100001000000000L);
  408.     Long(00000010000010000100001000000000L);
  409.     Long(00000010000010000100001000000000L);
  410.     Long(00000010000010000100001000000000L);
  411.     Long(00000001111100000011110000000000L);
  412.     Long(00000000000000000000000000000000L);
  413.     Long(00000000000000000000000000000000L);
  414.     Long(00000000000000000000000000000000L);
  415.     Long(00000000000000000000000000000000L);
  416.     ImageEnd;
  417.     StructGadget( NewGadget[14],226, 10, 32, 14, GadgetFlagSet{ gadgImage,
  418.                   gadgHImage,gadgHBox},
  419.                   ActivationFlagSet{ relVerify,gadgImmediate },
  420.                    boolGadget,
  421.                ADR(ImageDaten[14]), NIL ,LONGSET{},14,ADR(NewGadget[13]) );
  422.     GadgetID:=AddGadget(window, ADR(NewGadget[14]), -1);
  423.  
  424.     StructImage( ImageDaten[15], 0,0, 32, 14, 1, {1}, {0}, NIL );
  425.     Long(00000000000000000000000000000000L);
  426.     Long(00000000000000000000000000000000L);
  427.     Long(00000001111100000100010000000000L);
  428.     Long(00000000010000000100100000000000L);
  429.     Long(00000000010000000101000000000000L);
  430.     Long(00000000010000000110000000000000L);
  431.     Long(00000000010000000101000000000000L);
  432.     Long(00000000010000000100100000000000L);
  433.     Long(00000000010000000100100000000000L);
  434.     Long(00000001111100000100010000000000L);
  435.     Long(00000000000000000000000000000000L);
  436.     Long(00000000000000000000000000000000L);
  437.     Long(00000000000000000000000000000000L);
  438.     Long(00000000000000000000000000000000L);
  439.     ImageEnd;
  440.     StructGadget( NewGadget[15],226, 24, 32, 14, GadgetFlagSet{ gadgImage,
  441.                   gadgHImage,gadgHBox},
  442.                   ActivationFlagSet{ relVerify,gadgImmediate },
  443.                    boolGadget,
  444.                ADR(ImageDaten[15]), NIL ,LONGSET{},15,ADR(NewGadget[14]) );
  445.     GadgetID:=AddGadget(window, ADR(NewGadget[15]), -1);
  446.  
  447.     StructImage( ImageDaten[16], 0,0, 32, 14, 1, {1}, {0}, NIL );
  448.     Long(00000000000000000000000000000000L);
  449.     Long(00000000000000000000000000000000L);
  450.     Long(00000011111111000011111000000000L);
  451.     Long(00000000000010000000100000000000L);
  452.     Long(00000000000100000000100000000000L);
  453.     Long(00000000001000000000100000000000L);
  454.     Long(00000000010000000000100000000000L);
  455.     Long(00000000100000000000100000000000L);
  456.     Long(00000001000000000000100000000000L);
  457.     Long(00000011111111000011111000000000L);
  458.     Long(00000000000000000000000000000000L);
  459.     Long(00000000000000000000000000000000L);
  460.     Long(00000000000000000000000000000000L);
  461.     Long(00000000000000000000000000000000L);
  462.     ImageEnd;
  463.     StructGadget( NewGadget[16],258, 10, 32, 14, GadgetFlagSet{ gadgImage,
  464.                   gadgHImage,gadgHBox},
  465.                   ActivationFlagSet{ relVerify,gadgImmediate },
  466.                    boolGadget,
  467.                ADR(ImageDaten[16]), NIL ,LONGSET{},16,ADR(NewGadget[15]) );
  468.     GadgetID:=AddGadget(window, ADR(NewGadget[16]), -1);
  469.  
  470.     StructImage( ImageDaten[17], 0,0, 32, 14, 1, {1}, {0}, NIL );
  471.     Long(00000000000000000000000000000000L);
  472.     Long(00000000000000000000000000000000L);
  473.     Long(00000001000000000000001111110000L);
  474.     Long(00000010100000000000001000001000L);
  475.     Long(00000100010000000000001000001000L);
  476.     Long(00001000001000001000001000001000L);
  477.     Long(00001000001000000110001111110000L);
  478.     Long(00001111111001111111001000001000L);
  479.     Long(00001000001000000110001000001000L);
  480.     Long(00001000001000001000001000001000L);
  481.     Long(00001000001000000000001111110000L);
  482.     Long(00000000000000000000000000000000L);
  483.     Long(00000000000000000000000000000000L);
  484.     Long(00000000000000000000000000000000L);
  485.     ImageEnd;
  486.     StructGadget( NewGadget[17],258, 24, 32, 14, GadgetFlagSet{ gadgImage,
  487.                   gadgHImage,gadgHBox},
  488.                   ActivationFlagSet{ relVerify,gadgImmediate },
  489.                    boolGadget,
  490.                ADR(ImageDaten[17]), NIL ,LONGSET{},17,ADR(NewGadget[16]) );
  491.     GadgetID:=AddGadget(window, ADR(NewGadget[17]), -1);
  492.  
  493.     StructImage( ImageDaten[18], 0,0, 32, 14, 1, {1}, {0}, NIL );
  494.     Long(00000000000000000000000000000000L);
  495.     Long(00000000000000000000000000000000L);
  496.     Long(00000001000000000000000111110000L);
  497.     Long(00000010100000000000001000001000L);
  498.     Long(00000100010000000000001000000000L);
  499.     Long(00001000001000001000001000000000L);
  500.     Long(00001000001000000110001000000000L);
  501.     Long(00001111111001111111001000000000L);
  502.     Long(00001000001000000110001000000000L);
  503.     Long(00001000001000001000001000001000L);
  504.     Long(00001000001000000000000111110000L);
  505.     Long(00000000000000000000000000000000L);
  506.     Long(00000000000000000000000000000000L);
  507.     Long(00000000000000000000000000000000L);
  508.     ImageEnd;
  509.     StructGadget( NewGadget[18],290, 10, 32, 14, GadgetFlagSet{ gadgImage,
  510.                   gadgHImage,gadgHBox},
  511.                   ActivationFlagSet{ relVerify,gadgImmediate },
  512.                    boolGadget,
  513.                ADR(ImageDaten[18]), NIL ,LONGSET{},18,ADR(NewGadget[17]) );
  514.     GadgetID:=AddGadget(window, ADR(NewGadget[18]), -1);
  515.  
  516.     StructImage( ImageDaten[19], 0,0, 32, 14, 1, {1}, {0}, NIL );
  517.     Long(00000000000000000000000000000000L);
  518.     Long(00000000000000000000000000000000L);
  519.     Long(00001111110000000000000011111000L);
  520.     Long(00001000001000000000000100000100L);
  521.     Long(00001000001000010010000100000000L);
  522.     Long(00001000001001100001100100000000L);
  523.     Long(00001111110011111111110100000000L);
  524.     Long(00001000001001100001100100000000L);
  525.     Long(00001000001000010010000100000000L);
  526.     Long(00001000001000000000000100000100L);
  527.     Long(00001111110000000000000011111000L);
  528.     Long(00000000000000000000000000000000L);
  529.     Long(00000000000000000000000000000000L);
  530.     Long(00000000000000000000000000000000L);
  531.     ImageEnd;
  532.     StructGadget( NewGadget[19],290, 24, 32, 14, GadgetFlagSet{ gadgImage,
  533.                  gadgHImage,gadgHBox },
  534.                   ActivationFlagSet{ relVerify,gadgImmediate },
  535.                    boolGadget,
  536.                ADR(ImageDaten[19]), NIL ,LONGSET{},19,ADR(NewGadget[18]) );
  537.     GadgetID:=AddGadget(window, ADR(NewGadget[19]), -1);
  538.  
  539.     StructImage( ImageDaten[20], 0,0, 32, 14, 1, {1}, {0}, NIL );
  540.     Long(00000000000000000000000000000000L);
  541.     Long(00000000000000000000000000000000L);
  542.         Long(00000000000000000000000000000000L);
  543.     Long(00000000000111000000000000000000L);
  544.     Long(00000000111000000000000000000000L);
  545.     Long(00000111000000000000000000000000L);
  546.     Long(00001111111111111111111111110000L);
  547.     Long(00000111000000000000000000000000L);
  548.     Long(00000000111000000000000000000000L);
  549.         Long(00000000000111000000000000000000L);
  550.     Long(00000000000000000000000000000000L);
  551.     Long(00000000000000000000000000000000L);
  552.     Long(00000000000000000000000000000000L);
  553.     Long(00000000000000000000000000000000L);
  554.     ImageEnd;
  555.     StructGadget( NewGadget[20],322, 10, 32, 14, GadgetFlagSet{ gadgImage,
  556.                  gadgHImage,gadgHBox},
  557.                   ActivationFlagSet{ relVerify,gadgImmediate },
  558.                    boolGadget,
  559.                ADR(ImageDaten[20]), NIL ,LONGSET{},20,ADR(NewGadget[19]) );
  560.     GadgetID:=AddGadget(window, ADR(NewGadget[20]), -1);
  561.  
  562.     StructImage( ImageDaten[21], 0,0, 32, 14, 1, {1}, {0}, NIL );
  563.     Long(00000000000000000000000000000000L);
  564.     Long(00000000000000000000000000000000L);
  565.         Long(00000000000000000000000000000000L);
  566.     Long(00000000000000000001110000000000L);
  567.     Long(00000000000000000000001110000000L);
  568.     Long(00000000000000000000000001110000L);
  569.     Long(00000111111111111111111111111000L);
  570.     Long(00000000000000000000000001110000L);
  571.     Long(00000000000000000000001110000000L);
  572.         Long(00000000000000000001110000000000L);
  573.     Long(00000000000000000000000000000000L);
  574.     Long(00000000000000000000000000000000L);
  575.     Long(00000000000000000000000000000000L);
  576.     Long(00000000000000000000000000000000L);
  577.     ImageEnd;
  578.     StructGadget( NewGadget[21],322, 24, 32, 14, GadgetFlagSet{ gadgImage,
  579.                   gadgHImage,gadgHBox},
  580.                   ActivationFlagSet{ relVerify,gadgImmediate },
  581.                    boolGadget,
  582.                ADR(ImageDaten[21]), NIL ,LONGSET{},21,ADR(NewGadget[20]) );
  583.     GadgetID:=AddGadget(window, ADR(NewGadget[21]), -1);
  584.  
  585.     StructImage( ImageDaten[22], 0,0, 32, 14, 1, {1}, {0}, NIL );
  586.     Long(00000000000000000000000000000000L);
  587.     Long(00000000000000010000000000000000L);
  588.         Long(00000000000000111000000000000000L);
  589.     Long(00000000000000010000000000000000L);
  590.     Long(00000000000000111110000000000000L);
  591.     Long(00000000000001010001000000000000L);
  592.     Long(00000000000010010000100000000100L);
  593.     Long(00111111111111111111111111111110L);
  594.     Long(00000000000000010000100000000100L);
  595.         Long(00000000000000010001000000000000L);
  596.     Long(00000000000000010010000000000000L);
  597.     Long(00000000000000011100000000000000L);
  598.     Long(00000000000000010000000000000000L);
  599.     Long(00000000000000000000000000000000L);
  600.     ImageEnd;
  601.     StructGadget( NewGadget[22],354, 10, 32, 14, GadgetFlagSet{ gadgImage,
  602.                   gadgHImage,gadgHBox},
  603.                   ActivationFlagSet{ relVerify,gadgImmediate },
  604.                    boolGadget,
  605.                ADR(ImageDaten[22]), NIL ,LONGSET{},22,ADR(NewGadget[21]) );
  606.     GadgetID:=AddGadget(window, ADR(NewGadget[22]), -1);
  607.  
  608.     StructImage( ImageDaten[23], 0,0, 32, 14, 1, {1}, {0}, NIL );
  609.     Long(00000000000000000000000000000000L);
  610.     Long(00010000000000001000010010010000L);
  611.         Long(00111000000000001000010011010000L);
  612.     Long(00010000011000001000010010110000L);
  613.     Long(00010001100100001111010010010000L);
  614.     Long(00011110000010000000000000000000L);
  615.     Long(00010000000001111111111111111000L);
  616.     Long(00010000000000000000000000000000L);
  617.     Long(00010000000000000000000000001000L);
  618.         Long(00011111111111111111111111111100L);
  619.     Long(00000000000000000000000000001000L);
  620.     Long(00000000000000000000000000000000L);
  621.     Long(00000000000000000000000000000000L);
  622.     Long(00000000000000000000000000000000L);
  623.     ImageEnd;
  624.     StructGadget( NewGadget[23],354, 24, 32, 14, GadgetFlagSet{ gadgImage,
  625.                   gadgHImage,gadgHBox},
  626.                   ActivationFlagSet{ relVerify,gadgImmediate },
  627.                    boolGadget,
  628.                ADR(ImageDaten[23]), NIL ,LONGSET{},23,ADR(NewGadget[22]) );
  629.     GadgetID:=AddGadget(window, ADR(NewGadget[23]), -1);
  630.  
  631.     StructImage( ImageDaten[24], 0,0, 32, 14, 1, {1}, {0}, NIL );
  632.     Long(00000000000000000000000000000000L);
  633.     Long(00010000000000001000001100011100L);
  634.         Long(00111000000000001000010010100000L);
  635.     Long(00010000011000001000010010100100L);
  636.     Long(00010001100100001111001100011100L);
  637.     Long(00011110000010000000000000000000L);
  638.     Long(00010000000001111111111111111000L);
  639.     Long(00010000000000000000000000000000L);
  640.     Long(00010000000000000000000000001000L);
  641.         Long(00011111111111111111111111111100L);
  642.     Long(00000000000000000000000000001000L);
  643.     Long(00000000000000000000000000000000L);
  644.     Long(00000000000000000000000000000000L);
  645.     Long(00000000000000000000000000000000L);
  646.     ImageEnd;
  647.     StructGadget( NewGadget[24],386, 10, 32, 14, GadgetFlagSet{ gadgImage,
  648.                   gadgHImage,gadgHBox},
  649.                   ActivationFlagSet{ relVerify,gadgImmediate },
  650.                    boolGadget,
  651.                ADR(ImageDaten[24]), NIL ,LONGSET{},24,ADR(NewGadget[23]) );
  652.     GadgetID:=AddGadget(window, ADR(NewGadget[24]), -1);
  653.  
  654.     StructImage( ImageDaten[25], 0,0, 32, 14, 1, {1}, {0}, NIL );
  655.     Long(00000000000000000000000000000000L);
  656.     Long(00000000000000000000000000000000L);
  657.     Long(00001000010010000100100000100000L);
  658.     Long(00001100010010000100110001100000L);
  659.     Long(00001010010010000100101010100000L);
  660.     Long(00001010010010000100100100100000L);
  661.     Long(00001001010010000100100000100000L);
  662.     Long(00001001010010000100100000100000L);
  663.     Long(00001000110010000100100000100000L);
  664.     Long(00001000010001111000100000100000L);
  665.     Long(00000000000000000000000000000000L);
  666.     Long(00000000000000000000000000000000L);
  667.     Long(00000000000000000000000000000000L);
  668.     Long(00000000000000000000000000000000L);
  669.     ImageEnd;
  670.     StructGadget( NewGadget[25],386, 24, 32, 14, GadgetFlagSet{ gadgImage,
  671.                   gadgHImage,gadgHBox},
  672.                   ActivationFlagSet{ relVerify,gadgImmediate },
  673.                    boolGadget,
  674.                ADR(ImageDaten[25]), NIL ,LONGSET{},25,ADR(NewGadget[24]) );
  675.     GadgetID:=AddGadget(window, ADR(NewGadget[25]), -1);
  676.  
  677.     StructImage( ImageDaten[26], 0,0, 32, 14, 1, {1}, {0}, NIL );
  678.     Long(00000000000000000000000000000000L);
  679.     Long(00000000000000000000000000000000L);
  680.     Long(00000011111110011111110000000000L);
  681.     Long(00000010000000010000000000000000L);
  682.     Long(00000010000000010000000000000000L);
  683.     Long(00000011111110011111110000000000L);
  684.     Long(00000010000000010000000000000000L);
  685.     Long(00000010000000010000000000000000L);
  686.     Long(00000010000000010000000000000000L);
  687.     Long(00000011111110011111110000000000L);
  688.     Long(00000000000000000000000000000000L);
  689.     Long(00000000000000000000000000000000L);
  690.     Long(00000000000000000000000000000000L);
  691.     Long(00000000000000000000000000000000L);
  692.     ImageEnd;
  693.     StructGadget( NewGadget[26],418, 10, 32, 14, GadgetFlagSet{ gadgImage,
  694.                   gadgHImage,gadgHBox },
  695.                   ActivationFlagSet{ relVerify,gadgImmediate },
  696.                    boolGadget,
  697.                ADR(ImageDaten[26]), NIL ,LONGSET{},26,ADR(NewGadget[25]) );
  698.     GadgetID:=AddGadget(window, ADR(NewGadget[26]), -1);
  699.  
  700.     StructImage( SelectImage[1], 0,0, 32, 14, 1, {1}, {0}, NIL );
  701.     Long(00000000000000000000000000000000L);
  702.     Long(00000000000000000000000000000000L);
  703.         Long(00000000000000000111111111111000L);
  704.     Long(00000000000000001000000000010000L);
  705.     Long(00000000000000010000000000100000L);
  706.     Long(00000000000000100000000001000000L);
  707.     Long(00000000111111111111111111111100L);
  708.     Long(00000001000011111111111110001100L);
  709.     Long(00000010000111111111111100010100L);
  710.         Long(00000100000000000000000001001000L);
  711.     Long(00001111111111111111111110010000L);
  712.     Long(00001000000000000000000010100000L);
  713.     Long(00001111111111111111111111000000L);
  714.     Long(00000000000000000000000000000000L);
  715.     ImageEnd;
  716.     StructImage( ImageDaten[27], 0,0, 32, 14, 1, {1}, {0}, NIL );
  717.     Long(00000000000000000000000000000000L);
  718.     Long(00001111111111111111111111111000L);
  719.         Long(00001000000000000000000000001000L);
  720.     Long(00001000111111111111111110001000L);
  721.     Long(00001001000000000000000001001000L);
  722.     Long(00001001000000000000000001001000L);
  723.     Long(00001001000000000000000001001000L);
  724.     Long(00001001000000000000000001001000L);
  725.     Long(00001000111111111111111110001000L);
  726.         Long(00001000000000000000000000001000L);
  727.     Long(00001111111111111111111111111000L);
  728.     Long(00001000000100000000010010101000L);
  729.     Long(00001111111111111111111111111000L);
  730.     Long(00000000000000000000000000000000L);
  731.     ImageEnd;    
  732.     StructGadget( NewGadget[27],418, 24, 32, 14, GadgetFlagSet{ gadgImage
  733.                    (* ,gadgDisabled *),gadgHImage },
  734.                   ActivationFlagSet{ relVerify,gadgImmediate,toggleSelect},
  735.                    boolGadget,
  736.                ADR(ImageDaten[27]), NIL ,LONGSET{},27,ADR(NewGadget[26]) );
  737.     NewGadget[27].selectRender:=ADR(SelectImage[1]);           
  738.     GadgetID:=AddGadget(window, ADR(NewGadget[27]), -1);
  739.  
  740.     StructImage( ImageDaten[28], 0,0, 32, 14, 1, {1}, {0}, NIL );
  741.     Long(00000000000000000000000000000000L);
  742.     Long(00000000000000000000000000000000L);
  743.     Long(00000111111000011111000010000000L);
  744.     Long(00000100000100100000100010000000L);
  745.     Long(00000100000100100000100010000000L);
  746.     Long(00000100000100100000100010000000L);
  747.     Long(00000111111000100000100010000000L);
  748.     Long(00000100000000100000100010000000L);
  749.     Long(00000100000000100000100010000000L);
  750.     Long(00000100000000100000100010000000L);
  751.     Long(00000100000000100000100010000000L);
  752.     Long(00000100000000011111000011111100L);
  753.     Long(00000000000000000000000000000000L);
  754.     Long(00000000000000000000000000000000L);
  755.     ImageEnd;
  756.     StructImage( SelectImage[0], 0,0, 32, 14, 1, {1}, {0}, NIL );
  757.     Long(00000000000000000000000000000000L);
  758.     Long(00000000000000000000000000000000L);
  759.     Long(00000111111000111111000011111000L);
  760.     Long(00000100000100100000000100000100L);
  761.     Long(00000100000100100000000100000000L);
  762.     Long(00000100000100100000000100000000L);
  763.     Long(00000111111000111111000100000000L);
  764.     Long(00000100010000100000000100000000L);
  765.     Long(00000100001000100000000100000000L);
  766.     Long(00000100001000100000000100000000L);
  767.     Long(00000100001000100000000100000100L);
  768.     Long(00000100001000111111000011111000L);
  769.     Long(00000000000000000000000000000000L);
  770.     Long(00000000000000000000000000000000L);
  771.     ImageEnd;
  772.     StructGadget( NewGadget[28],450, 10, 32, 14, GadgetFlagSet{ gadgImage,
  773.                   gadgHImage},
  774.                   ActivationFlagSet{ relVerify,gadgImmediate,toggleSelect },
  775.                    boolGadget,
  776.                  ADR(ImageDaten[28]),NIL ,LONGSET{},28,ADR(NewGadget[27]));
  777.     NewGadget[28].selectRender:=ADR(SelectImage[0]);             
  778.     GadgetID:=AddGadget(window, ADR(NewGadget[28]), -1);
  779.     
  780.     StructImage( ImageDaten[29], 0,0, 32, 14, 1, {1}, {0}, NIL );
  781.     Long(00000000000000000000000000000000L);
  782.     Long(00000000000000000000000000000000L);
  783.     Long(00000001000001000111111000000000L);
  784.     Long(00000001100001001000000100000000L);
  785.     Long(00000001010001001000000000000000L);
  786.     Long(00000001010001000100000000000000L);
  787.     Long(00000001001001000011110000000000L);
  788.     Long(00000001001001000000001000000000L);
  789.     Long(00000001000101000000000100000000L);
  790.     Long(00000001000011001000000100000000L);
  791.     Long(00000001000001000111111000000000L);
  792.     Long(00000000000000000000000000000000L);
  793.     Long(00000000000000000000000000000000L);
  794.     Long(00000000000000000000000000000000L);
  795.     ImageEnd;
  796.     StructGadget( NewGadget[29],450, 24, 32, 14, GadgetFlagSet{ gadgImage,
  797.                   gadgHImage,gadgHBox},
  798.                   ActivationFlagSet{ relVerify,gadgImmediate },
  799.                    boolGadget,
  800.                  ADR(ImageDaten[29]),NIL,LONGSET{},29,ADR(NewGadget[28]));
  801.     GadgetID:=AddGadget(window, ADR(NewGadget[29]), -1);
  802.  
  803.     StructImage( ImageDaten[30], 0,0, 32, 14, 1, {1}, {0}, NIL );
  804.     Long(00000000000000000000000000000000L);
  805.     Long(00000000000000000000000000000000L);
  806.         Long(00001111100011110010001001110000L);
  807.     Long(00001000010010000011001001001000L);
  808.     Long(00001000010010000011001001000100L);
  809.     Long(00001111100011110010101001000100L);
  810.     Long(00001000000010000010101001000100L);
  811.     Long(00001000000010000010011001001000L);
  812.     Long(00001000000011110010001001110000L);
  813.         Long(00000000000000000000000000000000L);
  814.     Long(00000000000000000000000000000000L);
  815.     Long(00000000000000000000000000000000L);
  816.     Long(00000000000000000000000000000000L);
  817.     Long(00000000000000000000000000000000L);
  818.     ImageEnd;
  819.     StructGadget( NewGadget[30],482, 10, 32, 14, GadgetFlagSet{ gadgImage,
  820.                   gadgHImage,gadgHBox},
  821.                   ActivationFlagSet{ relVerify,gadgImmediate },
  822.                    boolGadget,
  823.                  ADR(ImageDaten[30]),NIL,LONGSET{},30,ADR(NewGadget[29]));
  824.     GadgetID:=AddGadget(window, ADR(NewGadget[30]), -1);
  825.  
  826.     StructImage( ImageDaten[31], 0,0, 32, 14, 1, {1}, {0}, NIL );
  827.     Long(00000000000000000000000000000000L);
  828.     Long(00000000000000000000000000000000L);
  829.         Long(00000010000001000010010000000100L);
  830.     Long(00000100100001100010010000000100L);
  831.     Long(00001000010001010010010000000100L);
  832.     Long(00010000001001010010010001000100L);
  833.     Long(00010000001001001010010010100100L);
  834.     Long(00011111111001001010010100010100L);
  835.     Long(00010000001001000110010100010100L);
  836.         Long(00010000001001000110011000001100L);
  837.     Long(00010000001001000010010000000100L);
  838.     Long(00000000000000000000000000000000L);
  839.     Long(00000000000000000000000000000000L);
  840.     Long(00000000000000000000000000000000L);
  841.     ImageEnd;
  842.     StructGadget( NewGadget[31],482, 24, 32, 14, GadgetFlagSet{ gadgImage,
  843.                   gadgHImage,gadgHBox},
  844.                   ActivationFlagSet{ relVerify,gadgImmediate },
  845.                    boolGadget,
  846.                  ADR(ImageDaten[31]),NIL,LONGSET{},31,ADR(NewGadget[30]));
  847.     GadgetID:=AddGadget(window, ADR(NewGadget[31]), -1);
  848.  
  849.     RefreshGadgets(ADR(NewGadget[0]), window, NIL);
  850. END MaleGadgets;
  851.  
  852. PROCEDURE GadgetAbfrage( VAR Anw : Auswahl; 
  853.                          VAR Druckflag,Ausgabeflag : BOOLEAN );    
  854. BEGIN          
  855.         GetIntuiMessage( window^.userPort, Class, Code, Qualf, ItemAdr, 
  856.                       x,y) ;
  857.      IF (Class=gadgetUp) THEN
  858.      
  859.             msgadr:=ItemAdr;
  860.             CASE msgadr^.gadgetID OF
  861.               0: Anw:=RR | (* RR ohmscher Widerstand in Reihe *)
  862.               1: Anw:=RP | (* RP ohmscher Widerstand parallel *)
  863.               2: Anw:=XR | (* XR Blindwiderstand in Reihe *)
  864.               3: Anw:=XP | (* XP Blindwiderstand parallel *)
  865.               4: Anw:=LR | (* LR Induktivität in Reihe *)
  866.               5: Anw:=LP | (* LP Induktivität parallel *)
  867.               6: Anw:=CR | (* CR Kapazität in Reihe *)
  868.               7: Anw:=CP | (* CP Kapazität parallel *)
  869.               8: Anw:=U1  | (* U1 Spannungsquelle Betrag oder Realteil *)
  870.               9: Anw:=I1  | (* I1 Stromquelle Betrag oder Realteil *)
  871.               10: Anw:=U2 |(* U2 Spannungsquelle Winkel oder Imaginärteil *)
  872.               11: Anw:=I2 |(* I2 Stromquelle Winkel oder Imaginärteil *)
  873.               12: Anw:=RS | (* RS A und B in Reihe schalten *)
  874.               13: Anw:=PS | (* PS A und B parallel schalten *)
  875.               14: Anw:=U0 | (* U0 den Spannungswert der Ersatzquelle *)
  876.                             (* ausgeben                              *)
  877.               15: Anw:=IK | (* IK den Stromwert der Ersatzquelle ausgeben *)
  878.               16: Anw:=ZI | (* ZI den Widerstandswert der Ersatzquelle    *)
  879.                             (* ausgeben                                   *)
  880.               17: Anw:=AnB | (* AnB Speicher A in B sichern *)
  881.               18: Anw:=AnC | (* AnC Speicher A in C sichern *)
  882.               19: Anw:=BvC | (* Speicher B und C vertauschen *)
  883.               20: Anw:=RCK | (* RCK eine Anweisung zurück *)
  884.               21: Anw:=VOR | (* VOR eine Anweisung vor *)
  885.               22: Anw:=OK | (* OK Ortskurve *)
  886.               23: Anw:=BODELIN | (* BODELIN Bodediagramm linear *)
  887.               24: Anw:=BODELOG | (* BODELOG Bodediagramm logarithmisch *)
  888.               25: Anw:=NUM | (* NUM numerisch rechnen *)
  889.               26: Anw:=EE | (* Ende der Bauteilliste *)
  890.               27: IF Druckflag THEN (* DR Druckerausgabe ein/aus *) 
  891.                      Druckflag:=FALSE 
  892.                   ELSE Druckflag:=TRUE END; Anw:=DR |
  893.               28: IF Ausgabeflag THEN (* RECPOL Normal- oder Polarform *)
  894.                      Ausgabeflag:=FALSE
  895.                   ELSE
  896.                      Ausgabeflag:=TRUE 
  897.                   END; Anw:=RECPOL |   
  898.               29: Anw:=NS (* NS neue Schaltung eingeben *) |
  899.               30: Anw:=PEND (* PEND Programm beenden *) |
  900.               31: Anw:=ANWAZ  (* ANWAZ alle Anweisungen anzeigen *)
  901.             END 
  902.      END ;
  903. END GadgetAbfrage;      
  904.  
  905. PROCEDURE EntferneGadgets;
  906. BEGIN
  907.     FOR i:=0 TO 31 DO
  908.       IF ImageDaten[i].imageData<>NIL THEN 
  909.         FreeImage(ImageDaten[i])
  910.       END
  911.     END;
  912.     IF SelectImage[0].imageData<>NIL THEN
  913.        FreeImage(SelectImage[0])
  914.     END;
  915.     IF SelectImage[1].imageData<>NIL THEN
  916.        FreeImage(SelectImage[1])
  917.     END;       
  918.     Deallocate(ImgPtr);
  919.     IF window<>NIL THEN CloseWindow(window) END
  920. END EntferneGadgets;
  921.  
  922. BEGIN
  923.     AllocProc:=AllocMem;
  924.     DeallocProc:=Deallocate
  925. END EQGadgets.
  926.